inherited sprMeterTypes: TsprMeterTypes
  Left = 406
  Top = 225
  Caption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1090#1080#1087#1086#1074' '#1089#1095#1077#1090#1095#1080#1082#1086#1074
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    Top = 25
    Height = 529
    inherited PageControl1: TPageControl
      Height = 529
      inherited tsTab: TTabSheet
        inherited GroupBox3: TGroupBox
          Height = 415
          inherited dbgRefer: TDBGridEh
            Height = 398
            Columns = <
              item
                EditButtons = <>
                FieldName = 'ID'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'NAME'
                Footers = <>
                Width = 207
              end
              item
                EditButtons = <>
                FieldName = 'CAPACITY'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'PRECIS'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'PERIOD'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'SINGLE_ONLY'
                Footers = <>
              end>
          end
        end
      end
      inherited tsForm: TTabSheet
        inherited GroupBox2: TGroupBox
          Top = 0
          Width = 784
          Height = 501
          Align = alClient
          object Label1: TLabel [0]
            Left = 112
            Top = 14
            Width = 17
            Height = 13
            Alignment = taRightJustify
            Caption = #1048#1044
          end
          object Label2: TLabel [1]
            Left = 79
            Top = 34
            Width = 50
            Height = 13
            Alignment = taRightJustify
            Caption = #1053#1072#1079#1074#1072#1085#1080#1077
          end
          object Label3: TLabel [2]
            Left = 76
            Top = 54
            Width = 53
            Height = 13
            Alignment = taRightJustify
            Caption = #1047#1085#1072#1095#1085#1086#1089#1090#1100
          end
          object Label4: TLabel [3]
            Left = 82
            Top = 74
            Width = 47
            Height = 13
            Alignment = taRightJustify
            Caption = #1058#1086#1095#1085#1086#1089#1090#1100
          end
          object Label5: TLabel [4]
            Left = 3
            Top = 94
            Width = 126
            Height = 13
            Alignment = taRightJustify
            Caption = #1055#1077#1088#1080#1086#1076' '#1075#1086#1089#1087#1086#1074#1077#1088#1082#1080'('#1084#1077#1089')'
          end
          object Label7: TLabel [5]
            Left = 30
            Top = 115
            Width = 101
            Height = 26
            Hint = #1082#1086#1076' '#1076#1083#1103' '#1074#1085#1077#1096#1085#1080#1093' '#1082#1083#1102#1095#1077#1081
            Alignment = taRightJustify
            Caption = #1045#1076#1080#1085#1080#1095#1085#1099#1081#13#10'('#1090#1086#1083#1100#1082#1086' '#1086#1076#1080#1085' '#1085#1072' '#1058#1059')'
          end
          inherited pnlButtons: TPanel
            Top = 468
            Width = 780
            TabOrder = 6
            inherited SpeedButton1: TSpeedButton
              Left = 581
            end
            inherited SpeedButton2: TSpeedButton
              Left = 683
            end
          end
          object DBEditEh1: TDBEditEh
            Left = 134
            Top = 11
            Width = 57
            Height = 19
            AlwaysShowBorder = True
            Color = clInactiveCaptionText
            DataField = 'ID'
            DataSource = dscRefer
            EditButtons = <>
            Enabled = False
            Flat = True
            ReadOnly = True
            TabOrder = 0
            Visible = True
          end
          object DBEditEh4: TDBEditEh
            Left = 134
            Top = 71
            Width = 33
            Height = 19
            AlwaysShowBorder = True
            DataField = 'PRECIS'
            DataSource = dscRefer
            EditButtons = <>
            Flat = True
            TabOrder = 3
            Visible = True
          end
          object DBEditEh5: TDBEditEh
            Left = 134
            Top = 91
            Width = 33
            Height = 19
            AlwaysShowBorder = True
            DataField = 'PERIOD'
            DataSource = dscRefer
            EditButtons = <>
            Flat = True
            TabOrder = 4
            Visible = True
          end
          object DBEditEh2: TDBEditEh
            Left = 134
            Top = 31
            Width = 217
            Height = 19
            AlwaysShowBorder = True
            DataField = 'NAME'
            DataSource = dscRefer
            EditButtons = <>
            Flat = True
            TabOrder = 1
            Visible = True
          end
          object DBEditEh3: TDBEditEh
            Left = 134
            Top = 51
            Width = 33
            Height = 19
            AlwaysShowBorder = True
            DataField = 'CAPACITY'
            DataSource = dscRefer
            EditButtons = <>
            Flat = True
            TabOrder = 2
            Visible = True
          end
          object DBCheckBoxEh1: TDBCheckBoxEh
            Left = 134
            Top = 119
            Width = 19
            Height = 17
            AllowGrayed = True
            AlwaysShowBorder = True
            DataField = 'SINGLE_ONLY'
            DataSource = dscRefer
            Flat = True
            TabOrder = 5
            ValueChecked = '1'
            ValueUnchecked = '0'
          end
        end
      end
    end
  end
  inherited GroupBox1: TGroupBox
    Height = 0
  end
  inherited dsRefer: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE METER_TYPES'
      'SET '
      '    NAME = :NAME,'
      '    CAPACITY = :CAPACITY,'
      '    PERIOD = :PERIOD,'
      '    PRECIS = :PRECIS,'
      '    SINGLE_ONLY = :SINGLE_ONLY'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    METER_TYPES'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO METER_TYPES('
      '    NAME,'
      '    CAPACITY,'
      '    PERIOD,'
      '    PRECIS,'
      '    SINGLE_ONLY'
      ')'
      'VALUES('
      '    :NAME,'
      '    :CAPACITY,'
      '    :PERIOD,'
      '    :PRECIS,'
      '    :SINGLE_ONLY'
      ')')
    RefreshSQL.Strings = (
      'select * from meter_types mt'
      ' WHERE '
      '        MT.ID = :OLD_ID'
      'order by id    ')
    SelectSQL.Strings = (
      'select * from meter_types mt'
      'order by id')
    Top = 318
    object dsReferID: TFIBIntegerField
      DisplayLabel = #1048#1044
      FieldName = 'ID'
    end
    object dsReferNAME: TFIBStringField
      DisplayLabel = #1053#1072#1079#1074#1072#1085#1080#1077' '#1090#1080#1087#1072
      FieldName = 'NAME'
      Size = 16
      EmptyStrToNull = True
    end
    object dsReferCAPACITY: TFIBIntegerField
      DisplayLabel = #1047#1085#1072#1095#1085#1086#1089#1090#1100
      FieldName = 'CAPACITY'
    end
    object dsReferPRECIS: TFIBIntegerField
      DisplayLabel = #1058#1086#1095#1085#1086#1089#1090#1100
      FieldName = 'PRECIS'
    end
    object dsReferPERIOD: TFIBIntegerField
      DisplayLabel = #1055#1077#1088#1080#1086#1076' '#1087#1086#1074#1077#1088#1082#1080
      FieldName = 'PERIOD'
    end
    object dsReferSINGLE_ONLY: TFIBSmallIntField
      DisplayLabel = #1045#1076#1080#1085#1080#1095#1085#1099#1081' ('#1058#1086#1083#1100#1082#1086' '#1086#1076#1080#1085' '#1085#1072' '#1058#1059')'
      FieldName = 'SINGLE_ONLY'
    end
  end
  inherited PropStorage: TPropStorageEh
    Section = 'sprMeterTypes'
  end
end
